Top 10k strings from Sub Hunter (1984)(Micro-Mart Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
11 00000000000000 6 ;" " 3 ypos=p(i,2 3 xpos=p(i,1 3 move x,y/box 2,2 3 acypix=ypix: 3 acxpix=xpix: 3 8800000000000000 2 ypos=ypos+(f* 2 ypos=a(i,2 2 xpos=xpos-(f* 2 xpos=xpos+(f* 2 xpos=a(i,1 2 move x,y/box4,4 2 achd=achd-360 2 achd=achd+360 2 Written by Flt.Lt.J.T.F.Dyer": 2 ;dhtx1,dhty1 2 ;dhtx,dhty 2 ;"PRESS ANY KEY" 2 ;"FOR NEW GAME" 2 ;" TOO-HIGH ": 2 ;" " 2 ;" ": 2 (depth-(100 1 yto=estsuby: 1 yst=yst-factor/2 1 yst=yst+factor/2 1 ypos>yend+factor/24 1 ypos=ypos-(f* 1 ypos=suby: 1 ypos=estsuby: 1 ypos<yst-factor/24 1 yfro=yfro+0.01 1 yfro=suby: 1 yfro=p(i,2 1 yfro=a(i,2 1 yfro-yto=0 1 yend=yend-factor/2 1 yend=yend+factor/2 1 yend=factor 1 y=acypix-3 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 xto=xto+0.01 1 xto=estsubx: 1 xto-xfro=0 1 xst=xst-factor/2 1 xst=xst+factor/2 1 xpos>xend+factor/24 1 xpos=subx: 1 xpos=estsubx: 1 xpos<xst-factor/24 1 xfro=xfro+0.01 1 xfro=subx: 1 xfro=p(i,1 1 xfro=a(i,1 1 xfro-xto=0 1 xend=xend-factor/2 1 xend=xend+factor/2 1 xend=factor 1 x=acxpix-3 1 wcls0,y,32,x 1 wcls0,12,4,4 1 wcls0,0,32,y 1 wcls i,i,n,m 1 wcls 8,7,14,14 1 track=track+1 1 temp=temp-360 1 temp=acsp: 1 t()-t(i)): 1 suby=suby+7 1 suby=suby+12 1 subx=xpos: 1 subx=subx+7 1 subx=subx+12 1 subhd=subhd-360 1 subhd=subhd-20 1 subhd=subhd+360 1 subhd=subhd+20 1 spup=spup+1 1 speed back 1 return from command in 1 relative dists 1 qcount=qcount+1 1 plotfac=plotfac/2 1 plotfac=32 1 plot sub points 1 plot posn routine 1 plot factor 1 passive buoy 1 oldht=5000 1 no more bombs 1 move x,y/line m,l/move x,l/line m,y 1 move x,y/box2,2 1 move x,y/box 4,4 1 move 71,15/box96,96 1 m=acxpix+3 1 line(x,175)-(y,128)/move 2,173/paint 1 line(x,128)-(y,175)/move253,173/paint 1 line(96,8)-(96,119)/line(144,8)-(144,119)/line(64,40)-(175,40)/line(64,87)-(175,87) 1 line(7,48)-(7,79)/line(15,48)-(15,79)/line(23,48)-(23,79) 1 line(7,0)-(7,39)/line(0,7)-(15,7)/line(0,15)-(15,15)/line(0,23)-(15,23)/line(0,31)-(15,31) 1 line(120,8)-(120,119)/line(64,63)-(175,63) 1 line(0,56)-(31,56)/line(0,64)-(31,64)/line(0,72)-(31,72) 1 l=acypix+3 1 kill display 1 i=(fu1*3.15 1 ht=ht+(climb*100 1 hds=hds-360 1 hds=hds+360 1 hdg=subhd: 1 fu2=fu2-(100 1 flt inst etc 1 find a/c plot 1 factor=factor*2 1 estsuby=suby-(0.24 1 estsuby=suby+(0.24 1 estsubx=subx-(0.24 1 estsubx=subx+(0.24 1 estdep>500 1 estdep=500 1 estdep<100 1 dry=dry-256 1 drx=drx-256 1 dhy=dhy-256 1 dhx=dhx-256 1 dhty=dhty-256 1 dhty1=dhty1/2 1 dhty1=dhty1-256 1 dhtx=dhtx-256 1 dhtx1=dhtx1/2 1 dhtx1=dhtx1-256 1 dfy=dfy-256 1 dfx=dfx-256 1 depth=depth-50 1 depth=depth+50 1 depth=depth+10 1 climb=climb-1 1 climb=climb+1 1 check scale subroutine 1 c(i)=c(i)-1 1 bank=bank-1 1 bank=bank+1 1 acy>yend+factor/24 1 acy<yst-factor/24 1 acx>xend+factor/24 1 acx<xst-factor/24 1 active buoy 1 acsp=acsp-(climb*3 1 achd=achd-20 1 achd=achd-2 1 achd=achd+20 1 achd=achd+2 1 a/c pos plot 1 SUB HUNTERU 1 SUB HUNTER 1 SCALE HERE 1 OOOOOOOOOOOOOOOOOOOOOOOOOOOO 1 OOOOOOOOOOOO 1 GGGGGGGGGGGGGGGOOOOOOOOOOOOOOOOOGGGGGGGG 1 GGGGGGGGGGGGG 1 GGGGGGGGGGGG 1 GGGGGGGGGGG 1 GGGGGGEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEGGGGGG 1 GGGGDDDDDDDDDDDDDDDDDDDDDGGGGG 1 Clear scale 1 ;yst+factor/2 1 ;xst+factor/2 1 ;xpix,ypix,3 1 ;"YOU HAVE ZERO DEPTH CHARGES LEFT" 1 ;"YOU STEERED YOUR AIRCRAFT" 1 ;"W-E-L-L****D-O-N-E" 1 ;"TO RETURN TO OPERATIONS" 1 ;"STEER-BACK": 1 ;"S-T-A-L-L-E-D" 1 ;"S-P-E-E-D": 1 ;"RUN OUT OF FUEL" 1 ;"PRESS ANY KEY--A NEW GAME" 1 ;"OUT OF THE OPERATING AREA" 1 ;"MISS >5 NM" 1 ;"FLEW INTO THE SEA" 1 ;"D-E-P-T-H" 1 ;"00";achd 1 ;"0";estdep 1 ;" YOU HAVE ZERO SONAR BUOYS LEFT " 1 ;" TOO HIGH "; 1 ;" TOO HIGH ": 1 ;" NO DEPTH ": 1 ;" BANKING ": 1 ;" " 1 ;" ": 1 888888888888888?? 1 8888888888 1 8888888(8( 1 +(climb*30 1 )=estsubx: 1 (yto-yfro))^2 1 (xto-xfro))^2 1 (temp+63260 1 (temp+62900 1 (subhd-newhd) 1 (subhd-(3.6 1 (subhd+(3.6 1 (oldht/1000 1 (depth-(i*5 1 (depth+(i*5 1 (acy-suby): 1 (acx-subx): 1 (88@(((8888888888888888888888888888888888888888888888888888888888888?8888?88? 1 ((yto-yfro)/(xto-xfro)))*180 1 ((yto-yfro)/(xfro-xto)))*180 1 ((ypos-yst)*plotfac)+15 1 ((yfro-yto)/(xto-xfro)))*180 1 ((xpos-xst)*plotfac)+71 1 ((xfro-xto)/(yfro-yto)))*180 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 "RESTORE THE COLOUR